﻿
Imports xmlctrl
Imports xhtmlctrl
Imports webctrl

Namespace requestProcessors_share
    Public Module _requestprocessors_share
        Public Sub addkeyvaluepair(ByVal context As httpContext, ByVal root As xmlcontrol, _
                                   ByVal key As String, ByVal value As String)
            assert(Not context Is Nothing, "context is nothing.")
            assert(Not root Is Nothing, "root is nothing.")
            Dim div As div = Nothing
            div = context.createControl(New div())
            div.text = key + " = " + value
            root.addchild(div)
        End Sub
    End Module
End Namespace
